se_ray(0.2)
delta <- c(1.5, 2, 3)
re_ray(0.2, delta)
hce_ray(0.2, delta)
ae_ray(0.2, delta)
# A graphic representation of the Rényi entropy (RE)
library(ggplot2)
delta <- c(1.5, 2, 3)
z <- re_ray(0.2, delta)
dat <- data.frame(x = delta , RE = z)
p_re <- ggplot(dat, aes(x = delta, y = RE)) + geom_line()
plot <- p_re + ggtitle(expression(alpha == 0.2))
# A graphic presentation of the Havrda and Charvat entropy (HCE)
delta <- c(1.5, 2, 3)
z <- hce_ray(0.2, delta)
dat <- data.frame(x = delta , HCE = z)
p_hce <- ggplot(dat, aes(x = delta, y = HCE)) + geom_line()
plot <- p_hce + ggtitle(expression(alpha == 0.2))
Run the code above in your browser using DataLab